home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDC100 / C / BDAY.GAME.22 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  2.1 KB  |  86 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  REM 
  2. 2  REM  HAPPY BIRTHDAY TO YOU!
  3. 4  REM   BASIC LOADER PROGRAM
  4. 6  REM   GAME 22-MAKE A WISH
  5. 8  REM  BY DAVID H. SCHROEDER
  6. 9  REM 
  7. 10 D$ =  CHR$(4)
  8. 12 HB = 4960
  9. 13 BI = 8104
  10. 14  ONERR  GOTO 9000
  11. 100  PRINT D$;"PREFIX"
  12. 110  INPUT P$
  13. 120  IF P$ = ""  THEN  GOSUB 8000
  14. 130  PRINT D$;"PREFIX";P$
  15. 200  PRINT D$;"BRUN HBTY.BOOT"
  16. 201 BO = 1
  17. 250  PRINT D$;"BRUNBDAY.TITL.22"
  18. 260  CALL HB +6
  19. 310  PRINT D$;"BLOADBDAY.INFO,A";BI
  20. 315  FOR WW = 0 TO 2000: NEXT WW
  21. 320  CALL HB +3
  22. 330 INFO =  PEEK(BI): IF INFO = 0  THEN 500
  23. 390  CALL HB +18
  24. 400  CALL HB +6
  25. 405  HOME : TEXT : SPEED= 160
  26. 410 N$ = ""
  27. 415  FOR CT = 0 TO  PEEK(BI +1) -1
  28. 420 X =  PEEK(BI +2 +CT)
  29. 422  IF X = 0  THEN X =  -32
  30. 424 L$ =  CHR$(X +64)
  31. 426 N$ = N$ +L$: NEXT CT
  32. 428 AG =  PEEK(BI +20)
  33. 430  HTAB (8): VTAB (5): PRINT "YOU HAVE BEEN CELEBRATING"
  34. 431  HTAB (13): VTAB (6): PRINT "THIS BIRTHDAY:"
  35. 432  HTAB (9): VTAB (9): PRINT N$;"    AGE ";AG
  36. 450  HTAB (9): VTAB (15): PRINT "DO YOU WANT TO ... ?"
  37. 460  HTAB (4): VTAB (17): PRINT "K -- KEEP CELEBRATING"
  38. 465  HTAB (9): PRINT N$;"'S BIRTHDAY."
  39. 470  HTAB (4): VTAB (20): PRINT "N -- CELEBRATE A NEW BIRTHDAY."
  40. 475  PRINT : PRINT : SPEED= 255
  41. 480  POKE  -16368,0: GET A$
  42. 485  IF A$ < >"K"  AND A$ < >"k"  AND A$ < >"N"  AND A$ < >"n"  THEN 480
  43. 487  CALL HB +21
  44. 490  IF A$ = "K"  OR A$ = "k"  THEN 601
  45. 500  CALL HB +9
  46. 510  CALL HB +12
  47. 520  CALL HB +15
  48. 525  POKE BI,1: REM  SET INFO? FLAG
  49. 530  ONERR  GOTO 599
  50. 540  PRINT D$;"BSAVEBDAY.INFO,A";BI;",L22"
  51. 599  POKE 222,0
  52. 600  ONERR  GOTO 9000
  53. 601  HOME 
  54. 610  PRINT "          MAKE A BIRTHDAY WISH!"
  55. 612  PRINT : PRINT "GOAL: BLOW OUT ALL THE CANDLES ON YOUR": PRINT "      CAKE BEFORE THE TIME RUNS OUT."
  56. 618  PRINT : PRINT "CONTROLS: JOYSTICK--MOVE ANY DIRECTION."
  57. 619  HTAB (13): PRINT "BUTTON STARTS/STOPS BLOWING."
  58. 620  PRINT "          KEYBOARD--USE 4 ARROW KEYS"
  59. 622  PRINT "            OR L/R ARROWS & A/Z KEYS."
  60. 624  HTAB (13): PRINT "SPACE STARTS/STOPS BLOWING."
  61. 626  PRINT : PRINT "USE JOYSTICK/KEYS TO MOVE AROUND THE"
  62. 628  PRINT "TOP OF YOUR CAKE. HOLD BUTTON/TOGGLE": PRINT "SPACE BAR TO SEND GUSTS OF BREATH"
  63. 630  PRINT "IN THE DIRECTION OF YOUR MOVEMENT."
  64. 632  PRINT : PRINT "WATCH OUT FOR THE ROAMING LETTERS --": PRINT "YOU'LL LOSE TIME IF YOU HIT THEM.": PRINT "BLOW OUT THE LETTER CANDLES"
  65. 634  PRINT "FOR EXTRA POINTS."
  66. 690  VTAB (23): PRINT "     CTRL-S TOGGLES SOUND ON/OFF."
  67. 695  VTAB (24): PRINT "     <ESC> RESUMES PLAY.";
  68. 698  VTAB (10): PRINT 
  69. 700  PRINT D$;"BLOADMAKEPG3,A$4000"
  70. 710  PRINT D$;"BLOAD HBTY.COMM,A$6000"
  71. 800  PRINT D$;"BRUNMAKE"
  72. 810  END 
  73. 8000 SD =  PEEK(48944)
  74. 8010 D = 1: IF SD > = 128  THEN D = 2:SD = SD -128
  75. 8020 S =  INT(SD/16)
  76. 8030  PRINT D$;"PREFIX ,S";S;",D";D
  77. 8040  PRINT D$;"PREFIX"
  78. 8050  INPUT P$
  79. 8060  RETURN 
  80. 9000  HOME : TEXT : SPEED= 255
  81. 9010 E =  PEEK(222): POKE 222,0
  82. 9020  HTAB (1): VTAB (1): PRINT E
  83. 9030  HTAB (7): VTAB (12): PRINT "PRODOS ERROR - PRESS A KEY"
  84. 9040  GET A$
  85. 9050  IF BO = 0  THEN  PRINT D$;"BYE": END 
  86. 9060  CALL 8128: END